home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 5.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 30 3a 32 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:23 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 68 2d 65 |s-20.3/l|isp/mh-e|
|000000a0| 2f 6d 68 2d 73 65 71 2e | 65 6c 0a 3b 3b 3b 20 65 |/mh-seq.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)). (|
|000001e0| 65 72 72 6f 72 20 22 60 | 6d 68 2d 73 65 71 2e 65 |error "`|mh-seq.e|
|000001f0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|00000200| 66 6f 72 20 45 6d 61 63 | 73 20 32 30 22 29 29 0a |for Emac|s 20")).|
|00000210| 0a 28 6f 72 20 28 62 6f | 75 6e 64 70 20 27 63 75 |.(or (bo|undp 'cu|
|00000220| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 29 |rrent-lo|ad-list)|
|00000230| 20 28 73 65 74 71 20 63 | 75 72 72 65 6e 74 2d 6c | (setq c|urrent-l|
|00000240| 6f 61 64 2d 6c 69 73 74 | 20 6e 69 6c 29 29 0a 0a |oad-list| nil))..|
|00000250| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00000260| 88 c2 c3 21 88 c4 c5 21 | ac 82 c6 15 c5 0e 07 42 |...!...!|.......B|
|00000270| 16 07 c4 c8 21 ac 83 c6 | 16 08 c8 0e 07 42 16 07 |....!...|.....B..|
|00000280| c6 87 22 20 5b 70 72 6f | 76 69 64 65 20 6d 68 2d |.." [pro|vide mh-|
|00000290| 73 65 71 20 72 65 71 75 | 69 72 65 20 6d 68 2d 65 |seq requ|ire mh-e|
|000002a0| 20 62 6f 75 6e 64 70 20 | 6d 68 2d 6c 61 73 74 2d | boundp |mh-last-|
|000002b0| 73 65 71 2d 75 73 65 64 | 20 6e 69 6c 20 63 75 72 |seq-used| nil cur|
|000002c0| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6d |rent-loa|d-list m|
|000002d0| 68 2d 6e 6f 6e 2d 73 65 | 71 2d 6d 6f 64 65 2d 6c |h-non-se|q-mode-l|
|000002e0| 69 6e 65 2d 61 6e 6e 6f | 74 61 74 69 6f 6e 5d 20 |ine-anno|tation] |
|000002f0| 32 29 0a 23 40 32 32 20 | 44 65 6c 65 74 65 20 74 |2).#@22 |Delete t|
|00000300| 68 65 20 53 45 51 55 45 | 4e 43 45 2e 1f 0a 28 64 |he SEQUE|NCE...(d|
|00000310| 65 66 61 6c 69 61 73 20 | 27 6d 68 2d 64 65 6c 65 |efalias |'mh-dele|
|00000320| 74 65 2d 73 65 71 20 23 | 5b 28 73 65 71 75 65 6e |te-seq #|[(sequen|
|00000330| 63 65 29 20 22 c0 c1 5c | 6e c3 0c 54 5c 6e 25 88 |ce) "..\|n..T\n%.|
|00000340| c5 5c 6e c6 5c 22 88 c7 | 5c 6e 21 87 22 20 5b 6d |.\n.\"..|\n!." [m|
|00000350| 68 2d 6d 61 70 2d 74 6f | 2d 73 65 71 2d 6d 73 67 |h-map-to|-seq-msg|
|00000360| 73 20 6d 68 2d 6e 6f 74 | 61 74 65 2d 69 66 2d 69 |s mh-not|ate-if-i|
|00000370| 6e 2d 6f 6e 65 2d 73 65 | 71 20 73 65 71 75 65 6e |n-one-se|q sequen|
|00000380| 63 65 20 3f 5c 20 20 6d | 68 2d 63 6d 64 2d 6e 6f |ce ?\ m|h-cmd-no|
|00000390| 74 65 20 6d 68 2d 75 6e | 64 65 66 69 6e 65 2d 73 |te mh-un|define-s|
|000003a0| 65 71 75 65 6e 63 65 20 | 28 22 61 6c 6c 22 29 20 |equence |("all") |
|000003b0| 6d 68 2d 64 65 6c 65 74 | 65 2d 73 65 71 2d 6c 6f |mh-delet|e-seq-lo|
|000003c0| 63 61 6c 6c 79 5d 20 36 | 20 28 23 24 20 2e 20 37 |cally] 6| (#$ . 7|
|000003d0| 36 30 29 20 28 6c 69 73 | 74 20 28 6d 68 2d 72 65 |60) (lis|t (mh-re|
|000003e0| 61 64 2d 73 65 71 2d 64 | 65 66 61 75 6c 74 20 22 |ad-seq-d|efault "|
|000003f0| 44 65 6c 65 74 65 22 20 | 74 29 29 5d 29 0a 23 40 |Delete" |t))]).#@|
|00000400| 33 39 20 4c 69 73 74 20 | 74 68 65 20 73 65 71 75 |39 List |the sequ|
|00000410| 65 6e 63 65 73 20 64 65 | 66 69 6e 65 64 20 69 6e |ences de|fined in|
|00000420| 20 46 4f 4c 44 45 52 2e | 1f 0a 28 64 65 66 61 6c | FOLDER.|..(defal|
|00000430| 69 61 73 20 27 6d 68 2d | 6c 69 73 74 2d 73 65 71 |ias 'mh-|list-seq|
|00000440| 75 65 6e 63 65 73 20 23 | 5b 28 66 6f 6c 64 65 72 |uences #|[(folder|
|00000450| 29 20 22 08 09 1a 89 1b | 90 8a 0b 71 88 c4 20 88 |) ".....|...q.. .|
|00000460| c5 c6 21 88 c7 0e 08 c9 | b1 03 88 5c 6e ab cf 5c |..!.....|...\n..\|
|00000470| 6e 40 40 ca cb 5c 6e 40 | 41 21 cc 5c 22 cd 20 ce |n@@..\n@|A!.\". .|
|00000480| 5a cf 1e 10 1e 11 1e 12 | 1e 13 d4 d5 0e 13 5c 22 |Z.......|......\"|
|00000490| 89 16 10 63 88 0e 12 ab | 9f 69 0e 11 56 ab 89 d6 |...c....|.i..V...|
|000004a0| 63 88 d7 0e 10 47 21 88 | d4 d8 0e 12 40 5c 22 63 |c....G!.|....@\"c|
|000004b0| 88 0e 12 41 89 16 12 ac | 61 d6 63 88 2c 5c 6e 41 |...A....|a.c.,\nA|
|000004c0| 89 12 ac 31 65 62 88 c5 | d9 21 29 91 2a 87 22 20 |...1eb..|.!).*." |
|000004d0| 5b 6d 68 2d 74 65 6d 70 | 2d 62 75 66 66 65 72 20 |[mh-temp|-buffer |
|000004e0| 6d 68 2d 73 65 71 2d 6c | 69 73 74 20 73 65 71 2d |mh-seq-l|ist seq-|
|000004f0| 6c 69 73 74 20 74 65 6d | 70 2d 62 75 66 66 65 72 |list tem|p-buffer|
|00000500| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 6d 65 | erase-b|uffer me|
|00000510| 73 73 61 67 65 20 22 4c | 69 73 74 69 6e 67 20 73 |ssage "L|isting s|
|00000520| 65 71 75 65 6e 63 65 73 | 20 2e 2e 2e 22 20 22 53 |equences| ..." "S|
|00000530| 65 71 75 65 6e 63 65 73 | 20 69 6e 20 66 6f 6c 64 |equences| in fold|
|00000540| 65 72 20 22 20 66 6f 6c | 64 65 72 20 22 3a 5c 6e |er " fol|der ":\n|
|00000550| 22 20 73 6f 72 74 20 63 | 6f 70 79 2d 73 65 71 75 |" sort c|opy-sequ|
|00000560| 65 6e 63 65 20 3c 20 77 | 69 6e 64 6f 77 2d 77 69 |ence < w|indow-wi|
|00000570| 64 74 68 20 34 20 6e 69 | 6c 20 6e 61 6d 65 2d 73 |dth 4 ni|l name-s|
|00000580| 70 65 63 20 6c 61 73 74 | 2d 63 6f 6c 20 73 6f 72 |pec last|-col sor|
|00000590| 74 65 64 2d 73 65 71 2d | 6d 73 67 73 20 6e 61 6d |ted-seq-|msgs nam|
|000005a0| 65 20 66 6f 72 6d 61 74 | 20 22 25 32 30 73 3a 22 |e format| "%20s:"|
|000005b0| 20 22 5c 6e 22 20 6d 6f | 76 65 2d 74 6f 2d 63 6f | "\n" mo|ve-to-co|
|000005c0| 6c 75 6d 6e 20 22 20 25 | 73 22 20 22 4c 69 73 74 |lumn " %|s" "List|
|000005d0| 69 6e 67 20 73 65 71 75 | 65 6e 63 65 73 2e 2e 2e |ing sequ|ences...|
|000005e0| 64 6f 6e 65 22 5d 20 36 | 20 28 23 24 20 2e 20 31 |done"] 6| (#$ . 1|
|000005f0| 30 32 37 29 20 28 6c 69 | 73 74 20 28 6d 68 2d 70 |027) (li|st (mh-p|
|00000600| 72 6f 6d 70 74 2d 66 6f | 72 2d 66 6f 6c 64 65 72 |rompt-fo|r-folder|
|00000610| 20 22 4c 69 73 74 20 73 | 65 71 75 65 6e 63 65 73 | "List s|equences|
|00000620| 20 69 6e 22 20 6d 68 2d | 63 75 72 72 65 6e 74 2d | in" mh-|current-|
|00000630| 66 6f 6c 64 65 72 20 74 | 29 29 5d 29 0a 23 40 37 |folder t|))]).#@7|
|00000640| 32 20 44 69 73 70 6c 61 | 79 20 74 68 65 20 73 65 |2 Displa|y the se|
|00000650| 71 75 65 6e 63 65 73 20 | 74 68 61 74 20 63 6f 6e |quences |that con|
|00000660| 74 61 69 6e 20 4d 45 53 | 53 41 47 45 20 28 64 65 |tain MES|SAGE (de|
|00000670| 66 61 75 6c 74 3a 20 63 | 75 72 72 65 6e 74 20 6d |fault: c|urrent m|
|00000680| 65 73 73 61 67 65 29 2e | 1f 0a 28 64 65 66 61 6c |essage).|..(defal|
|00000690| 69 61 73 20 27 6d 68 2d | 6d 73 67 2d 69 73 2d 69 |ias 'mh-|msg-is-i|
|000006a0| 6e 2d 73 65 71 20 23 5b | 28 6d 65 73 73 61 67 65 |n-seq #[|(message|
|000006b0| 29 20 22 c0 c1 08 c2 c3 | c4 c5 08 c6 5c 22 21 c7 |) ".....|....\"!.|
|000006c0| 23 23 87 22 20 5b 6d 65 | 73 73 61 67 65 20 22 4d |##." [me|ssage "M|
|000006d0| 65 73 73 61 67 65 20 25 | 64 20 69 73 20 69 6e 20 |essage %|d is in |
|000006e0| 73 65 71 75 65 6e 63 65 | 73 3a 20 25 73 22 20 6d |sequence|s: %s" m|
|000006f0| 61 70 63 6f 6e 63 61 74 | 20 63 6f 6e 63 61 74 20 |apconcat| concat |
|00000700| 6d 68 2d 6c 69 73 74 2d | 74 6f 2d 73 74 72 69 6e |mh-list-|to-strin|
|00000710| 67 20 6d 68 2d 73 65 71 | 2d 63 6f 6e 74 61 69 6e |g mh-seq|-contain|
|00000720| 69 6e 67 2d 6d 73 67 20 | 74 20 22 20 22 5d 20 39 |ing-msg |t " "] 9|
|00000730| 20 28 23 24 20 2e 20 31 | 36 30 32 29 20 28 6c 69 | (#$ . 1|602) (li|
|00000740| 73 74 20 28 6d 68 2d 67 | 65 74 2d 6d 73 67 2d 6e |st (mh-g|et-msg-n|
|00000750| 75 6d 20 74 29 29 5d 29 | 0a 23 40 31 32 32 20 52 |um t))])|.#@122 R|
|00000760| 65 73 74 72 69 63 74 20 | 64 69 73 70 6c 61 79 20 |estrict |display |
|00000770| 6f 66 20 74 68 69 73 20 | 66 6f 6c 64 65 72 20 74 |of this |folder t|
|00000780| 6f 20 6a 75 73 74 20 6d | 65 73 73 61 67 65 73 20 |o just m|essages |
|00000790| 69 6e 20 53 45 51 55 45 | 4e 43 45 2e 0a 55 73 65 |in SEQUE|NCE..Use|
|000007a0| 20 5c 3c 6d 68 2d 66 6f | 6c 64 65 72 2d 6d 6f 64 | \<mh-fo|lder-mod|
|000007b0| 65 2d 6d 61 70 3e 5c 5b | 6d 68 2d 77 69 64 65 6e |e-map>\[|mh-widen|
|000007c0| 5d 20 74 6f 20 75 6e 64 | 6f 20 74 68 69 73 20 63 |] to und|o this c|
|000007d0| 6f 6d 6d 61 6e 64 2e 1f | 0a 28 64 65 66 61 6c 69 |ommand..|.(defali|
|000007e0| 61 73 20 27 6d 68 2d 6e | 61 72 72 6f 77 2d 74 6f |as 'mh-n|arrow-to|
|000007f0| 2d 73 65 71 20 23 5b 28 | 73 65 71 75 65 6e 63 65 |-seq #[(|sequence|
|00000800| 29 20 22 c0 20 c1 89 1a | 1b 1c c5 0e 06 21 ab af |) ". ...|.....!..|
|00000810| c7 20 88 64 1e 08 c9 0e | 06 0e 08 5c 22 88 0e 08 |. .d....|...\"...|
|00000820| 64 7d 88 ca cb 21 88 0e | 0c 16 0b cd 0e 06 21 16 |d}...!..|......!.|
|00000830| 0c ce 20 88 cf c1 21 88 | 0e 06 89 16 10 29 aa 87 |.. ...!.|.....)..|
|00000840| d1 d2 cd 0e 06 21 5c 22 | d3 0c 21 88 2b 87 22 20 |.....!\"|..!.+." |
|00000850| 5b 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 |[buffer-|modified|
|00000860| 2d 70 20 6e 69 6c 20 62 | 75 66 66 65 72 2d 66 69 |-p nil b|uffer-fi|
|00000870| 6c 65 2d 6e 61 6d 65 20 | 62 75 66 66 65 72 2d 72 |le-name |buffer-r|
|00000880| 65 61 64 2d 6f 6e 6c 79 | 20 6d 68 2d 66 6f 6c 64 |ead-only| mh-fold|
|00000890| 65 72 2d 75 70 64 61 74 | 69 6e 67 2d 6d 6f 64 2d |er-updat|ing-mod-|
|000008a0| 66 6c 61 67 20 6d 68 2d | 73 65 71 2d 74 6f 2d 6d |flag mh-|seq-to-m|
|000008b0| 73 67 73 20 73 65 71 75 | 65 6e 63 65 20 6d 68 2d |sgs sequ|ence mh-|
|000008c0| 77 69 64 65 6e 20 65 6f | 62 20 6d 68 2d 63 6f 70 |widen eo|b mh-cop|
|000008d0| 79 2d 73 65 71 2d 74 6f | 2d 70 6f 69 6e 74 20 6d |y-seq-to|-point m|
|000008e0| 61 6b 65 2d 76 61 72 69 | 61 62 6c 65 2d 62 75 66 |ake-vari|able-buf|
|000008f0| 66 65 72 2d 6c 6f 63 61 | 6c 20 6d 68 2d 6e 6f 6e |fer-loca|l mh-non|
|00000900| 2d 73 65 71 2d 6d 6f 64 | 65 2d 6c 69 6e 65 2d 61 |-seq-mod|e-line-a|
|00000910| 6e 6e 6f 74 61 74 69 6f | 6e 20 6d 68 2d 6d 6f 64 |nnotatio|n mh-mod|
|00000920| 65 2d 6c 69 6e 65 2d 61 | 6e 6e 6f 74 61 74 69 6f |e-line-a|nnotatio|
|00000930| 6e 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 6d 68 |n symbol|-name mh|
|00000940| 2d 6d 61 6b 65 2d 66 6f | 6c 64 65 72 2d 6d 6f 64 |-make-fo|lder-mod|
|00000950| 65 2d 6c 69 6e 65 20 6d | 68 2d 72 65 63 65 6e 74 |e-line m|h-recent|
|00000960| 65 72 20 6d 68 2d 6e 61 | 72 72 6f 77 65 64 2d 74 |er mh-na|rrowed-t|
|00000970| 6f 2d 73 65 71 20 65 72 | 72 6f 72 20 22 4e 6f 20 |o-seq er|ror "No |
|00000980| 6d 65 73 73 61 67 65 73 | 20 69 6e 20 73 65 71 75 |messages| in sequ|
|00000990| 65 6e 63 65 20 60 25 73 | 27 22 20 6d 68 2d 73 65 |ence `%s|'" mh-se|
|000009a0| 74 2d 66 6f 6c 64 65 72 | 2d 6d 6f 64 69 66 69 65 |t-folder|-modifie|
|000009b0| 64 2d 70 5d 20 34 20 28 | 23 24 20 2e 20 31 38 38 |d-p] 4 (|#$ . 188|
|000009c0| 37 29 20 28 6c 69 73 74 | 20 28 6d 68 2d 72 65 61 |7) (list| (mh-rea|
|000009d0| 64 2d 73 65 71 20 22 4e | 61 72 72 6f 77 20 74 6f |d-seq "N|arrow to|
|000009e0| 22 20 74 29 29 5d 29 0a | 23 40 31 33 34 20 41 64 |" t))]).|#@134 Ad|
|000009f0| 64 20 4d 45 53 53 41 47 | 45 28 73 29 20 28 64 65 |d MESSAG|E(s) (de|
|00000a00| 66 61 75 6c 74 3a 20 64 | 69 73 70 6c 61 79 65 64 |fault: d|isplayed|
|00000a10| 20 6d 65 73 73 61 67 65 | 29 20 74 6f 20 53 45 51 | message|) to SEQ|
|00000a20| 55 45 4e 43 45 2e 0a 49 | 66 20 6f 70 74 69 6f 6e |UENCE..I|f option|
|00000a30| 61 6c 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |al prefi|x argume|
|00000a40| 6e 74 20 70 72 6f 76 69 | 64 65 64 2c 20 74 68 65 |nt provi|ded, the|
|00000a50| 6e 20 70 72 6f 6d 70 74 | 20 66 6f 72 20 74 68 65 |n prompt| for the|
|00000a60| 20 6d 65 73 73 61 67 65 | 20 73 65 71 75 65 6e 63 | message| sequenc|
|00000a70| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |e...(def|alias 'm|
|00000a80| 68 2d 70 75 74 2d 6d 73 | 67 2d 69 6e 2d 73 65 71 |h-put-ms|g-in-seq|
|00000a90| 20 23 5b 28 6d 73 67 2d | 6f 72 2d 73 65 71 20 73 | #[(msg-|or-seq s|
|00000aa0| 65 71 75 65 6e 63 65 29 | 20 22 c0 09 21 ac 82 09 |equence)| "..!...|
|00000ab0| 12 c3 0c a7 ab 83 0c aa | 83 c5 0c 21 09 5c 22 87 |........|...!.\".|
|00000ac0| 22 20 5b 6d 68 2d 69 6e | 74 65 72 6e 61 6c 2d 73 |" [mh-in|ternal-s|
|00000ad0| 65 71 20 73 65 71 75 65 | 6e 63 65 20 6d 68 2d 6c |eq seque|nce mh-l|
|00000ae0| 61 73 74 2d 73 65 71 2d | 75 73 65 64 20 6d 68 2d |ast-seq-|used mh-|
|00000af0| 61 64 64 2d 6d 73 67 73 | 2d 74 6f 2d 73 65 71 20 |add-msgs|-to-seq |
|00000b00| 6d 73 67 2d 6f 72 2d 73 | 65 71 20 6d 68 2d 73 65 |msg-or-s|eq mh-se|
|00000b10| 71 2d 74 6f 2d 6d 73 67 | 73 5d 20 33 20 28 23 24 |q-to-msg|s] 3 (#$|
|00000b20| 20 2e 20 32 35 34 32 29 | 20 28 6c 69 73 74 20 28 | . 2542)| (list (|
|00000b30| 69 66 20 63 75 72 72 65 | 6e 74 2d 70 72 65 66 69 |if curre|nt-prefi|
|00000b40| 78 2d 61 72 67 20 28 6d | 68 2d 72 65 61 64 2d 73 |x-arg (m|h-read-s|
|00000b50| 65 71 2d 64 65 66 61 75 | 6c 74 20 22 41 64 64 20 |eq-defau|lt "Add |
|00000b60| 6d 65 73 73 61 67 65 73 | 20 66 72 6f 6d 22 20 74 |messages| from" t|
|00000b70| 29 20 28 6d 68 2d 67 65 | 74 2d 6d 73 67 2d 6e 75 |) (mh-ge|t-msg-nu|
|00000b80| 6d 20 74 29 29 20 28 6d | 68 2d 72 65 61 64 2d 73 |m t)) (m|h-read-s|
|00000b90| 65 71 2d 64 65 66 61 75 | 6c 74 20 22 41 64 64 20 |eq-defau|lt "Add |
|00000ba0| 74 6f 22 20 6e 69 6c 29 | 29 5d 29 0a 23 40 37 32 |to" nil)|)]).#@72|
|00000bb0| 20 52 65 6d 6f 76 65 20 | 72 65 73 74 72 69 63 74 | Remove |restrict|
|00000bc0| 69 6f 6e 73 20 66 72 6f | 6d 20 63 75 72 72 65 6e |ions fro|m curren|
|00000bd0| 74 20 66 6f 6c 64 65 72 | 2c 20 74 68 65 72 65 62 |t folder|, thereb|
|00000be0| 79 20 73 68 6f 77 69 6e | 67 20 61 6c 6c 20 6d 65 |y showin|g all me|
|00000bf0| 73 73 61 67 65 73 2e 1f | 0a 28 64 65 66 61 6c 69 |ssages..|.(defali|
|00000c00| 61 73 20 27 6d 68 2d 77 | 69 64 65 6e 20 23 5b 6e |as 'mh-w|iden #[n|
|00000c10| 69 6c 20 22 08 ab 99 c1 | 20 c2 89 1b 1c 1d 65 64 |il "....| .....ed|
|00000c20| 7c 88 7e 88 0e 06 16 07 | c8 20 88 c9 0d 21 88 2b ||.~.....|. ...!.+|
|00000c30| c2 89 10 87 22 20 5b 6d | 68 2d 6e 61 72 72 6f 77 |...." [m|h-narrow|
|00000c40| 65 64 2d 74 6f 2d 73 65 | 71 20 62 75 66 66 65 72 |ed-to-se|q buffer|
|00000c50| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 6e 69 6c 20 |-modifie|d-p nil |
|00000c60| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00000c70| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00000c80| 79 20 6d 68 2d 66 6f 6c | 64 65 72 2d 75 70 64 61 |y mh-fol|der-upda|
|00000c90| 74 69 6e 67 2d 6d 6f 64 | 2d 66 6c 61 67 20 6d 68 |ting-mod|-flag mh|
|00000ca0| 2d 6e 6f 6e 2d 73 65 71 | 2d 6d 6f 64 65 2d 6c 69 |-non-seq|-mode-li|
|00000cb0| 6e 65 2d 61 6e 6e 6f 74 | 61 74 69 6f 6e 20 6d 68 |ne-annot|ation mh|
|00000cc0| 2d 6d 6f 64 65 2d 6c 69 | 6e 65 2d 61 6e 6e 6f 74 |-mode-li|ne-annot|
|00000cd0| 61 74 69 6f 6e 20 6d 68 | 2d 6d 61 6b 65 2d 66 6f |ation mh|-make-fo|
|00000ce0| 6c 64 65 72 2d 6d 6f 64 | 65 2d 6c 69 6e 65 20 6d |lder-mod|e-line m|
|00000cf0| 68 2d 73 65 74 2d 66 6f | 6c 64 65 72 2d 6d 6f 64 |h-set-fo|lder-mod|
|00000d00| 69 66 69 65 64 2d 70 5d | 20 33 20 28 23 24 20 2e |ified-p]| 3 (#$ .|
|00000d10| 20 32 39 39 33 29 20 6e | 69 6c 5d 29 0a 28 64 65 | 2993) n|il]).(de|
|00000d20| 66 61 6c 69 61 73 20 27 | 6d 68 2d 72 65 61 64 2d |falias '|mh-read-|
|00000d30| 73 65 71 2d 64 65 66 61 | 75 6c 74 20 23 5b 28 70 |seq-defa|ult #[(p|
|00000d40| 72 6f 6d 70 74 20 6e 6f | 74 2d 65 6d 70 74 79 29 |rompt no|t-empty)|
|00000d50| 20 22 c0 09 5c 6e 0b ae | 8a 0c ae 87 c5 c6 c7 21 | "..\n..|.......!|
|00000d60| c7 5c 22 40 23 87 22 20 | 5b 6d 68 2d 72 65 61 64 |.\"@#." |[mh-read|
|00000d70| 2d 73 65 71 20 70 72 6f | 6d 70 74 20 6e 6f 74 2d |-seq pro|mpt not-|
|00000d80| 65 6d 70 74 79 20 6d 68 | 2d 6e 61 72 72 6f 77 65 |empty mh|-narrowe|
|00000d90| 64 2d 74 6f 2d 73 65 71 | 20 6d 68 2d 6c 61 73 74 |d-to-seq| mh-last|
|00000da0| 2d 73 65 71 2d 75 73 65 | 64 20 6d 68 2d 73 65 71 |-seq-use|d mh-seq|
|00000db0| 2d 63 6f 6e 74 61 69 6e | 69 6e 67 2d 6d 73 67 20 |-contain|ing-msg |
|00000dc0| 6d 68 2d 67 65 74 2d 6d | 73 67 2d 6e 75 6d 20 6e |mh-get-m|sg-num n|
|00000dd0| 69 6c 5d 20 36 5d 29 0a | 28 64 65 66 61 6c 69 61 |il] 6]).|(defalia|
|00000de0| 73 20 27 6d 68 2d 72 65 | 61 64 2d 73 65 71 20 23 |s 'mh-re|ad-seq #|
|00000df0| 5b 28 70 72 6f 6d 70 74 | 20 6e 6f 74 2d 65 6d 70 |[(prompt| not-emp|
|00000e00| 74 79 20 26 6f 70 74 69 | 6f 6e 61 6c 20 64 65 66 |ty &opti|onal def|
|00000e10| 61 75 6c 74 29 20 22 c0 | c1 c2 0b c4 0d ab 86 c1 |ault) ".|........|
|00000e20| c6 0d 5c 22 aa 81 c7 24 | c8 0e 09 21 5c 22 89 1e |..\"...$|...!\"..|
|00000e30| 5c 6e cb 6b ab 89 cc cd | ce 21 cf 5c 22 40 aa 8d |\n.k....|.!.\"@..|
|00000e40| 0e 5c 6e c7 6b ab 83 0d | aa 84 d0 0e 5c 6e 21 1e |.\n.k...|....\n!.|
|00000e50| 11 d2 0e 11 21 89 1e 13 | ac 8c 0e 14 ab 88 d5 c1 |....!...|........|
|00000e60| d6 0e 11 5c 22 21 88 0e | 11 2b 87 22 20 5b 63 6f |...\"!..|.+." [co|
|00000e70| 6d 70 6c 65 74 69 6e 67 | 2d 72 65 61 64 20 66 6f |mpleting|-read fo|
|00000e80| 72 6d 61 74 20 22 25 73 | 20 25 73 20 25 73 22 20 |rmat "%s| %s %s" |
|00000e90| 70 72 6f 6d 70 74 20 22 | 73 65 71 75 65 6e 63 65 |prompt "|sequence|
|00000ea0| 3a 22 20 64 65 66 61 75 | 6c 74 20 22 5b 25 73 5d |:" defau|lt "[%s]|
|00000eb0| 20 22 20 22 22 20 6d 68 | 2d 73 65 71 2d 6e 61 6d | " "" mh|-seq-nam|
|00000ec0| 65 73 20 6d 68 2d 73 65 | 71 2d 6c 69 73 74 20 69 |es mh-se|q-list i|
|00000ed0| 6e 70 75 74 20 22 25 22 | 20 6d 68 2d 73 65 71 2d |nput "%"| mh-seq-|
|00000ee0| 63 6f 6e 74 61 69 6e 69 | 6e 67 2d 6d 73 67 20 6d |containi|ng-msg m|
|00000ef0| 68 2d 67 65 74 2d 6d 73 | 67 2d 6e 75 6d 20 74 20 |h-get-ms|g-num t |
|00000f00| 6e 69 6c 20 69 6e 74 65 | 72 6e 20 73 65 71 20 6d |nil inte|rn seq m|
|00000f10| 68 2d 73 65 71 2d 74 6f | 2d 6d 73 67 73 20 6d 73 |h-seq-to|-msgs ms|
|00000f20| 67 73 20 6e 6f 74 2d 65 | 6d 70 74 79 20 65 72 72 |gs not-e|mpty err|
|00000f30| 6f 72 20 22 4e 6f 20 6d | 65 73 73 61 67 65 73 20 |or "No m|essages |
|00000f40| 69 6e 20 73 65 71 75 65 | 6e 63 65 20 60 25 73 27 |in seque|nce `%s'|
|00000f50| 22 5d 20 39 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |"] 9]).(|defalias|
|00000f60| 20 27 6d 68 2d 73 65 71 | 2d 6e 61 6d 65 73 20 23 | 'mh-seq|-names #|
|00000f70| 5b 28 73 65 71 2d 6c 69 | 73 74 29 20 22 c0 c1 5c |[(seq-li|st) "..\|
|00000f80| 6e 5c 22 87 22 20 5b 6d | 61 70 63 61 72 20 23 5b |n\"." [m|apcar #[|
|00000f90| 28 65 6e 74 72 79 29 20 | 22 c0 09 40 21 43 87 22 |(entry) |"..@!C."|
|00000fa0| 20 5b 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 65 6e | [symbol|-name en|
|00000fb0| 74 72 79 5d 20 32 5d 20 | 73 65 71 2d 6c 69 73 74 |try] 2] |seq-list|
|00000fc0| 5d 20 33 5d 29 0a 23 40 | 33 35 20 52 65 6e 61 6d |] 3]).#@|35 Renam|
|00000fd0| 65 20 53 45 51 55 45 4e | 43 45 20 74 6f 20 68 61 |e SEQUEN|CE to ha|
|00000fe0| 76 65 20 4e 45 57 2d 4e | 41 4d 45 2e 1f 0a 28 64 |ve NEW-N|AME...(d|
|00000ff0| 65 66 61 6c 69 61 73 20 | 27 6d 68 2d 72 65 6e 61 |efalias |'mh-rena|
|00001000| 6d 65 2d 73 65 71 20 23 | 5b 28 73 65 71 75 65 6e |me-seq #|[(sequen|
|00001010| 63 65 20 6e 65 77 2d 6e | 61 6d 65 29 20 22 c0 09 |ce new-n|ame) "..|
|00001020| 21 89 1a ac 85 c3 c4 09 | 5c 22 88 c5 0e 06 5c 6e |!.......|\"....\n|
|00001030| 41 5c 22 88 c7 09 5c 6e | 41 5c 22 88 5c 6e 0e 06 |A\"...\n|A\".\n..|
|00001040| a0 29 87 22 20 5b 6d 68 | 2d 66 69 6e 64 2d 73 65 |.)." [mh|-find-se|
|00001050| 71 20 73 65 71 75 65 6e | 63 65 20 6f 6c 64 2d 73 |q sequen|ce old-s|
|00001060| 65 71 20 65 72 72 6f 72 | 20 22 53 65 71 75 65 6e |eq error| "Sequen|
|00001070| 63 65 20 25 73 20 64 6f | 65 73 20 6e 6f 74 20 65 |ce %s do|es not e|
|00001080| 78 69 73 74 22 20 6d 68 | 2d 64 65 66 69 6e 65 2d |xist" mh|-define-|
|00001090| 73 65 71 75 65 6e 63 65 | 20 6e 65 77 2d 6e 61 6d |sequence| new-nam|
|000010a0| 65 20 6d 68 2d 75 6e 64 | 65 66 69 6e 65 2d 73 65 |e mh-und|efine-se|
|000010b0| 71 75 65 6e 63 65 5d 20 | 34 20 28 23 24 20 2e 20 |quence] |4 (#$ . |
|000010c0| 34 30 34 33 29 20 28 6c | 69 73 74 20 28 6d 68 2d |4043) (l|ist (mh-|
|000010d0| 72 65 61 64 2d 73 65 71 | 20 22 4f 6c 64 22 20 74 |read-seq| "Old" t|
|000010e0| 29 20 28 69 6e 74 65 72 | 6e 20 28 72 65 61 64 2d |) (inter|n (read-|
|000010f0| 73 74 72 69 6e 67 20 22 | 4e 65 77 20 73 65 71 75 |string "|New sequ|
|00001100| 65 6e 63 65 20 6e 61 6d | 65 3a 20 22 29 29 29 5d |ence nam|e: ")))]|
|00001110| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 68 2d |).(defal|ias 'mh-|
|00001120| 6d 61 70 2d 74 6f 2d 73 | 65 71 2d 6d 73 67 73 20 |map-to-s|eq-msgs |
|00001130| 23 5b 28 66 75 6e 63 20 | 73 65 71 20 26 72 65 73 |#[(func |seq &res|
|00001140| 74 20 61 72 67 73 29 20 | 22 8a c0 09 21 89 1a ad |t args) |"...!...|
|00001150| 98 c3 5c 6e 40 c4 89 23 | ab 89 c5 0e 06 5c 6e 40 |..\n@..#|.....\n@|
|00001160| 0e 07 23 88 5c 6e 41 89 | 12 ac 69 c8 2a 87 22 20 |..#.\nA.|..i.*." |
|00001170| 5b 6d 68 2d 73 65 71 2d | 74 6f 2d 6d 73 67 73 20 |[mh-seq-|to-msgs |
|00001180| 73 65 71 20 6d 73 67 73 | 20 6d 68 2d 67 6f 74 6f |seq msgs| mh-goto|
|00001190| 2d 6d 73 67 20 74 20 61 | 70 70 6c 79 20 66 75 6e |-msg t a|pply fun|
|000011a0| 63 20 61 72 67 73 20 6e | 69 6c 5d 20 35 5d 29 0a |c args n|il] 5]).|
|000011b0| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 68 2d 6e 6f |(defalia|s 'mh-no|
|000011c0| 74 61 74 65 2d 73 65 71 | 20 23 5b 28 73 65 71 20 |tate-seq| #[(seq |
|000011d0| 6e 6f 74 61 74 69 6f 6e | 20 6f 66 66 73 65 74 29 |notation| offset)|
|000011e0| 20 22 c0 c1 5c 6e 0b 0c | 24 87 22 20 5b 6d 68 2d | "..\n..|$." [mh-|
|000011f0| 6d 61 70 2d 74 6f 2d 73 | 65 71 2d 6d 73 67 73 20 |map-to-s|eq-msgs |
|00001200| 6d 68 2d 6e 6f 74 61 74 | 65 20 73 65 71 20 6e 6f |mh-notat|e seq no|
|00001210| 74 61 74 69 6f 6e 20 6f | 66 66 73 65 74 5d 20 35 |tation o|ffset] 5|
|00001220| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 68 |]).(defa|lias 'mh|
|00001230| 2d 61 64 64 2d 74 6f 2d | 73 65 71 75 65 6e 63 65 |-add-to-|sequence|
|00001240| 20 23 5b 28 73 65 71 20 | 6d 73 67 73 29 20 22 c0 | #[(seq |msgs) ".|
|00001250| 09 21 3f ad 92 5c 6e ad | 8f c3 c4 c5 0e 06 c7 c8 |.!?..\n.|........|
|00001260| c9 09 21 ca 5c 6e 21 26 | 07 87 22 20 5b 6d 68 2d |..!.\n!&|.." [mh-|
|00001270| 66 6f 6c 64 65 72 2d 6e | 61 6d 65 2d 70 20 73 65 |folder-n|ame-p se|
|00001280| 71 20 6d 73 67 73 20 61 | 70 70 6c 79 20 6d 68 2d |q msgs a|pply mh-|
|00001290| 65 78 65 63 2d 63 6d 64 | 20 22 6d 61 72 6b 22 20 |exec-cmd| "mark" |
|000012a0| 6d 68 2d 63 75 72 72 65 | 6e 74 2d 66 6f 6c 64 65 |mh-curre|nt-folde|
|000012b0| 72 20 22 2d 61 64 64 22 | 20 22 2d 73 65 71 75 65 |r "-add"| "-seque|
|000012c0| 6e 63 65 22 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |nce" sym|bol-name|
|000012d0| 20 6d 68 2d 63 6f 61 6c | 65 73 63 65 2d 6d 73 67 | mh-coal|esce-msg|
|000012e0| 2d 6c 69 73 74 5d 20 39 | 5d 29 0a 28 64 65 66 61 |-list] 9|]).(defa|
|000012f0| 6c 69 61 73 20 27 6d 68 | 2d 63 6f 70 79 2d 73 65 |lias 'mh|-copy-se|
|00001300| 71 2d 74 6f 2d 70 6f 69 | 6e 74 20 23 5b 28 73 65 |q-to-poi|nt #[(se|
|00001310| 71 20 6c 6f 63 61 74 69 | 6f 6e 29 20 22 c0 c1 5c |q locati|on) "..\|
|00001320| 6e 0b 23 87 22 20 5b 6d | 68 2d 6d 61 70 2d 74 6f |n.#." [m|h-map-to|
|00001330| 2d 73 65 71 2d 6d 73 67 | 73 20 6d 68 2d 63 6f 70 |-seq-msg|s mh-cop|
|00001340| 79 2d 6c 69 6e 65 2d 74 | 6f 2d 70 6f 69 6e 74 20 |y-line-t|o-point |
|00001350| 73 65 71 20 6c 6f 63 61 | 74 69 6f 6e 5d 20 34 5d |seq loca|tion] 4]|
|00001360| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 68 2d |).(defal|ias 'mh-|
|00001370| 63 6f 70 79 2d 6c 69 6e | 65 2d 74 6f 2d 70 6f 69 |copy-lin|e-to-poi|
|00001380| 6e 74 20 23 5b 28 6d 73 | 67 20 6c 6f 63 61 74 69 |nt #[(ms|g locati|
|00001390| 6f 6e 29 20 22 c0 79 88 | 8a 60 c1 1a 1b c4 79 88 |on) ".y.|.`....y.|
|000013a0| 60 12 0d 62 88 c6 70 0b | 5c 6e 23 2b 87 22 20 5b |`..b..p.|\n#+." [|
|000013b0| 30 20 6e 69 6c 20 65 6e | 64 20 62 65 67 69 6e 6e |0 nil en|d beginn|
|000013c0| 69 6e 67 2d 6f 66 2d 6c | 69 6e 65 20 31 20 6c 6f |ing-of-l|ine 1 lo|
|000013d0| 63 61 74 69 6f 6e 20 69 | 6e 73 65 72 74 2d 62 75 |cation i|nsert-bu|
|000013e0| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 5d 20 |ffer-sub|string] |
|000013f0| 34 5d 29 0a | |4]). | |
+--------+-------------------------+-------------------------+--------+--------+
